﻿Public Class ucBaoCaoTon

    Private Sub ucBaoCaoTon_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        
        Dim mydate As Date = Date.Now
        Dim nam = mydate.Year

        For n As Integer = nam - 5 To nam
            cboNam.Items.Add(n)
        Next
        cboNam.SelectedIndex = 5

        For i As Integer = 1 To 12
            cboThang.Items.Add(i)
            If i = mydate.Month Then
                cboThang.SelectedIndex = i - 1
            End If
        Next
    End Sub

    Private Sub btnXemBaoCao_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnXemBaoCao.Click

    End Sub

    Private Sub btnLuuBaoCao_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLuuBaoCao.Click

    End Sub
End Class
